home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / MotorWord_d1.adf / INSTALL-MaxonWORD-Disk < prev    next >
Text File  |  1993-08-20  |  11KB  |  368 lines
  1. ; $VER: MaxonWORD Install Version 1.10 (18.08.93)
  2. ; Script zum Installieren von MaxonWORD auf Diskette
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #entpacken
  8. (cat "\n\nDie Fontdaten werden entpackt!\n\nWeiter mit \"Proceed\"\n"))
  9. (set #introduction
  10. (cat "\nMit diesem Installationsprogramm können Sie\n MaxonWORD\n auf "
  11.      "zwei Disketten installieren\nDie komplette Installation läuft nahezu vollständig "
  12.      "automatisch ab.\nBitte halten Sie zwei formatierte Leerdiskette bereit!\n"
  13.          "Nennen Sie eine \"MaxonWORD\" und die andere \"PS-Fonts\"\n"
  14.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  15.      "Drücken Sie \"Abort Install\", um die Installation abzubrechen."))
  16. (set #askdir-help
  17. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  18.      "Sie gerne MaxonWORD installieren möchten. Danach klicken Sie "
  19.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  20.      "Namen des Verzeichnisses an (z.B. WORK:MWORD). Dann drücken Sie "
  21.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  22.      "Beschreibung der Schalter:\n\n"
  23.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  24.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  25.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  26.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  27.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  28.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  29.      "befindete sich ein Schieber, mit dem man sich durch eine "
  30.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  31.      "alle Einträge ausreicht.\n\n"
  32.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  33.      "einer Schublade geklickt wird.\n\n"
  34.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  35.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  36.      "wurde.)\n\n"
  37.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  38.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  39.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  40.      "anzusehen.\n\n"
  41.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  42.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  43.      "angelegt, das Sie soeben betrachten.\n\n"
  44.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  45.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  46.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  47.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  48.      "vorgenommen.\n\n"
  49.      "\"Help...\" zeigt diesen Text."))
  50. (set #help-startup
  51. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  52.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  53.      "bereits beim Systemstart ausführen.\n\n"
  54.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  55.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  56.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  57.      "den Schalter \"Skip This Part\"\n\n"
  58.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  59. (set #help-delete
  60. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  61.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  62.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  63.      "\"Assigns\" gelöscht.\n\n"
  64.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  65.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  66.      "Installationsverzeichnis erhalten.\n\n"
  67.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  68. (set #startup-help
  69. (cat "Erklärung der Schalter:\n\n"
  70.      "\"Install for Real\"\n"
  71.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  72.      "\"Pretend to Install\"\n"
  73.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  74.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  75.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  76.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  77.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  78.      "Liste über alle durchgeführten Aktionen.\n\n"
  79.      "\"Printer\"\n"
  80.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  81.      "ausgegeben.\n\n"
  82.      "\"Log File\"\n"
  83.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  84.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  85.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  86.      "\"None\"\n"
  87.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  88. (set #no-inst
  89. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  90.      "nötigsten MaxonWORD-Dateien zu kopieren\n\n"
  91.      "!!! Die Installation wird abgebrochen !!!"))
  92.  
  93. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren.\n"))
  94.  
  95. (set #COPVERZ    (cat "\nIn welches Verzeichnis soll MaxonWORD\nkopiert werden?\n\n"))
  96. (set #WORDFONTS    (cat "Die Fontdaten werden entpackt!\n\n"))
  97. (set #WORDDOKU    (cat "\nKopiere die Demo-Dokumente!\n\n"))
  98. (set #WORDDEKOMP (cat "\nDekomprimiere das Hauptprogramm!\n"))
  99.  
  100. (set @WORDSIZE    500000)
  101. (set @FONTSIZE    700000)
  102. (set @CONFSIZE 20000)
  103.  
  104. (set @abort-button "Abbruch")
  105. (set @language "Deutsch")
  106.  
  107. (Procedure Inst_NormFiles
  108.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  109.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  110. )
  111.  
  112. (Procedure Inst_PatternFiles
  113.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  114.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  115. )
  116.  
  117. (Procedure Inst_LhaFiles
  118.     (set @TMP (tackon "RAM:" @FName.lha))
  119.     (set @Dest_File (tackon @default-dest @Dest))
  120.     (if                                          ; Verzeichnis erzeugen
  121.         (= (exists @Dest_File) 0)
  122.         (makedir (@Dest_File)(infos))
  123.     )
  124.  
  125.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  126.     (working @Working @Dest)
  127.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  128.     (delete @TMP)
  129. )
  130.  
  131. (Procedure Dekomp_WORD
  132.     (set @TMP (tackon "RAM:" @FName.lha))
  133.  
  134.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  135.     (working @Working @Dest)
  136.     (askdisk
  137.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD:\" ein!")
  138.         (help #askdir-help)
  139.         (dest "MaxonWORD")
  140.     )
  141.     (run ("RAM:Lhx x %s RAM:MWORD.Lha MaxonWORD:"))
  142.     (delete @TMP)
  143. )
  144.  
  145. (complete 0)
  146.  
  147. (message #introduction)
  148. (welcome)
  149.  
  150. (set verchoice 1)
  151.  
  152. (set @default-dest "MaxonWORD:")
  153.  
  154. (askdisk
  155.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk1\" ein!")
  156.     (help #askdir-help)
  157.     (dest "MaxonWORD_Disk1")
  158. )
  159.  
  160. (copyfiles                                            ; LHX kopieren
  161.     (prompt #COPYRAM)
  162.     (help @copyfiles-help)
  163.     (source "MaxonWORD_Disk1:C")
  164.     (dest "RAM:")
  165.    (choices "Lhx")
  166. )
  167.  
  168. (if(= 0 (exists "RAM:Lhx"))
  169.     (abort #ERRORRAM))
  170.  
  171. (complete 5)
  172.  
  173. (set @CONF-Dir "S:MWord.SES")
  174.     
  175. (if (= (exists @CONF-Dir) 1)
  176.     (
  177.         (delete @CONF-Dir)
  178.     )
  179. )
  180.  
  181. (if (< (/ (getversion) 65536) 35)    ; die ganzen Systemgeschichten zuerst
  182.     (
  183.         (
  184.             (set @Source "MaxonWORD_Disk1:S")
  185.             (set @Dest "S:")
  186.            (set @Pattern "MW#?")
  187.             (set @Size @CONFSIZE)
  188.             (Inst_PatternFiles)
  189.         )
  190.  
  191.         (copylib                                            ; die MW-Support.Library nur unter Kickstart 1.3 kopieren
  192.             (prompt "Die MWSUPPORT-LIBRARY wird kopiert ...")
  193.             (help
  194.                 "Die MWSUPPORT-Library beinhaltet den Standard-Filerequester "
  195.               "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  196.               "installiert haben, dann ist hier eine neuere Version.\n\n"
  197.                 @copyfiles-help
  198.             )
  199.             (source "MaxonWORD_Disk1:libs/mwsupport.library")
  200.             (dest "Libs:")
  201.             (confirm)
  202.         )
  203.     
  204.         (copylib                                            ; IFFPARSE-LIB - schauen ob die aktuelle 2.0 Version genutzt wird
  205.             (prompt "Die IFFParse-LIBRARY wird kopiert ...")
  206.             (help
  207.                 "Die IFF-Library wird von MaxonWORD benötigt."
  208.               "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  209.               "installiert haben, dann ist hier eine neuere Version.\n\n"
  210.                 @copyfiles-help
  211.             )
  212.             (source "MaxonWORD_Disk1:Libs/iffparse.library")
  213.             (dest "Libs:")
  214.             (confirm)
  215.         )
  216.     )
  217.     (
  218.  
  219.         (set @CONF-Dir "S:MWord.DEF")
  220.             
  221.         (if (= (exists @CONF-Dir) 1)
  222.             (
  223.                 (delete @CONF-Dir)
  224.             )
  225.         )
  226.  
  227.         (set @CONF-Dir "S:MWord.CFG")
  228.             
  229.         (if (= (exists @CONF-Dir) 1)
  230.             (
  231.                 (delete @CONF-Dir)
  232.             )
  233.         )
  234.  
  235.  
  236.         (if                                          ;Verzeichnis erzeugen
  237.             (= (exists "ENVARC:MWORD") 0)
  238.             (makedir ("ENVARC:MWORD"))
  239.         )
  240.  
  241.         (if                                          ;Verzeichnis erzeugen
  242.             (= (exists "ENV:MWORD") 0)
  243.             (makedir ("ENV:MWORD"))
  244.         )
  245.  
  246.         (
  247.             (set @Source "MaxonWORD_Disk1:S")
  248.             (set @Dest "ENV:MWORD")
  249.            (set @Pattern "MW#?")
  250.             (set @Size @CONFSIZE)
  251.             (Inst_PatternFiles)
  252.         )
  253.         (
  254.             (set @Source "MaxonWORD_Disk1:S")
  255.             (set @Dest "ENVARC:MWORD")
  256.            (set @Pattern "MW#?")
  257.             (set @Size @CONFSIZE)
  258.             (Inst_PatternFiles)
  259.         )
  260.  
  261.     )
  262. )
  263.  
  264. (complete 10)
  265.  
  266. ; Jetzt wird die erste Diskette geschrieben!
  267.  
  268. (
  269.     (set @Working #WORDDEKOMP)
  270.     (set @Dest "MaxonWORD:")
  271.     (set @Source "MaxonWORD_Disk1:")
  272.     (set @FName.lha "MWORD.LHA")
  273.     (set @Size @WORDSIZE)
  274.     (Dekomp_WORD)
  275. )
  276.  
  277. (complete 30)
  278.  
  279.  
  280. (    (set @Working #WORDDEKOMP)
  281.     (set @Dest "MaxonWORD:")
  282.     (set @Source "MaxonWORD_Disk1:")
  283.     (set @FName  "MWord.info")
  284.     (set @Size 0)
  285.     (Inst_NormFiles)
  286. )
  287.  
  288. (complete 50)
  289.  
  290. (set @Dokument-Dir "MaxonWORD:Dokumente")
  291. (set @Grafik-Dir "MaxonWORD:Grafiken")
  292.     
  293. (if                                          ; Verzeichnis erzeugen
  294.     (= (exists @Dokument-Dir) 0)
  295.     (makedir (@Dokument-Dir)(infos))
  296. )
  297.     
  298. (if                                          ; Verzeichnis erzeugen
  299.     (= (exists @Grafik-Dir) 0)
  300.     (makedir (@Grafik-Dir)(infos))
  301. )
  302.  
  303. (    (set @Working #WORDDOKU)
  304.     (set @Dest @Dokument-Dir)
  305.     (set @Source "MaxonWORD_Disk1:Dokumente/")
  306.     (set @FName  "TextDemo.Dok")
  307.     (set @Size 0)
  308.     (Inst_NormFiles)
  309. )
  310.  
  311. (complete 60)
  312.         
  313. (    (set @Working #WORDDOKU)
  314.     (set @Dest @Dokument-Dir)
  315.     (set @Source "MaxonWORD_Disk1:Dokumente/")
  316.     (set @FName  "FontDemo.Dok")
  317.     (set @Size 0)
  318.     (Inst_NormFiles)
  319. )
  320.  
  321. (    (set @Working #WORDDOKU)
  322.     (set @Dest @Grafik-Dir)
  323.     (set @Source "MaxonWORD_Disk1:Grafiken/")
  324.     (set @FName  "Demo.Iff")
  325.     (set @Size 0)
  326.     (Inst_NormFiles)
  327. )
  328.  
  329. (complete 70)
  330.  
  331. (askdisk
  332.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk2\" ein!")
  333.     (help "Diese Diskette enthält die Postscript-Fonts.")
  334.     (dest "MaxonWORD_Disk2")
  335. )
  336.  
  337. (    (set @Working #WORDFONTS)
  338.     (set @Dest "Ram:")
  339.     (set @Source "MaxonWORD_Disk2:")
  340.     (set @FName  "PSFONTS.LHA")
  341.     (set @Size 0)
  342.     (Inst_NormFiles)
  343. )
  344.  
  345. (complete 80)
  346.  
  347. (askdisk
  348.     (prompt "\n\n\nBitte legen Sie die Diskette \"PS-FONTS:\" ein!")
  349.     (help "Diese Diskette enthält die Postscript-Fonts.")
  350.     (dest "PS-Fonts")
  351. )
  352.  
  353. (run ("RAM:Lhx -E -N x RAM:PSFONTS.LHA PS-FONTS: #?.PFB"))
  354.  
  355. (delete "RAM:PSFONTS.LHA")
  356. (delete "RAM:LhX")
  357.  
  358. (complete 100)
  359.  
  360. ; ------- FERTIG
  361.  
  362. (message (cat 
  363.     "Installation der Textverarbeitung MaxonWORD beendet.\n"
  364.    "\n\nViel Erfolg!")
  365. )
  366.  
  367.  
  368.